home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MOD2SRC.ZIP / INTMATH.MOD < prev    next >
Encoding:
Text File  |  1987-02-08  |  1.5 KB  |  39 lines
  1.                                          (* Chapter 3 - Program 2 *)
  2. MODULE IntMath;
  3.  
  4. FROM InOut IMPORT WriteLn, WriteString, WriteInt;
  5.  
  6. VAR IntSum, IntDif, IntMul, IntDiv, IntRem : INTEGER;
  7.     A, B                                   : INTEGER;
  8.  
  9. BEGIN
  10.    A := 9;             (* Simple assignment                  *)
  11.    B := A + 4;         (* Addition                           *)
  12.    IntSum := A + B;    (* Addition                           *)
  13.    IntDif := A - B;    (* Subtraction                        *)
  14.    IntMul := A * B;    (* Multiplication                     *)
  15.    IntDiv := B DIV A;  (* Integer division, the result is a
  16.                           truncated integer number.          *)
  17.    IntRem := B MOD A;  (* d is the remainder of the integer
  18.                           division.                          *)
  19.    A := (A + B) DIV (3*B + 7);  (* Composite math statement  *)
  20.  
  21.    WriteString("The integer values are ");
  22.    WriteInt(IntSum,6);
  23.    WriteInt(IntDif,6);
  24.    WriteInt(IntMul,6);
  25.    WriteInt(IntDiv,6);
  26.    WriteInt(IntRem,6);
  27.    WriteLn;
  28.  
  29.    INC(A);       (* This increments the value of A   *)
  30.    DEC(A);       (* This decrements the value of A   *)
  31.    INC(A,3);     (* This adds 3 to the value of A    *)
  32.    DEC(A,7);     (* This reduces the value of A by 7 *)
  33.    INC(A,B*2+4); (* A composite incrementing amount  *)
  34.  
  35.    A := MIN(INTEGER);  (* This produces the smallest INTEGER *)
  36.    B := MAX(INTEGER);  (* This produces the largest INTEGER  *)
  37.  
  38. END IntMath.
  39.